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بسه الله الرحمن الرحيه 


و الصلاة و السلا علي حبيبزا محمد صلي الله عليه 
و علي آله أجمعين الي يوء الدين 


السلاءِ علیكه و رحمة الله و برڪځاټه 


القعامل مع الملةات بالدلفي 
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قى ان اف انات الى 4 اها 


1- الملفات النصية : تتكون من سطر أو عدة أسطر أفقية لعا خصائص محددة كنذماية السطر و هوضع 
المؤشر فيه تحتوي علي معلومات ذا ذمط ملاسل محرفية كما يمن الرجوح أو القفز من و إلي السطر 
الموالبي في النص حسبج هوخع المؤشر , كما تعتبر أسهل انوع الملفامع من حيش التعامل معما (ختابة , 


قراءة , حطذو .... إلخ) . 


iE 
ا‎ . ESEH EEE MME; 


2- الملفايع التتابعية : تعتمت على مبدأ مختلفے هن حيش بنيتها عن الصنفى الأول .. هنا تتضون من سجل أو 
مجهو عة سجلات نذاو عدة حقول خجداول البيانات لكنما لا تملك القدرة علي تخزين كل أنماط المعلوهاي 
وهبي 3 أنماط : الصف , المؤشرات , و الجحاول الديناميكية إهذا فعيي محدوحة لحن نقطة قوتها فيي كتابة 
أو قرائة حقول املة لن نستطيع تحقيقما بالملةايت النصية . 


eT‏ ر سا 
E ES BELEM EEDSEAMMEF‏ 


3- الملفات الثنائية : ملفابت هن حون نمط تتيح لا ختابة أو قراءة كل أنواع المعطيايت مهما خان نمطمها 
بطريقة قوية و آمنه و بكل حرية هة بالة بغض النظر علي إمتداد الملوى . 


iE 
ا‎ . ESEH EERSTE; 


1- الھلھات النصیة : کیفے نشا ملف نصي بسيط ؟؟ كبداية فستعمل الإجراء : 


procedure AssignFile ( var FileHandle : TextFile; const FileName : string ) ; 


خما فلاحظ الإجراء 1٥‏ 4127۴ء۸ يمكننا من إرقاق مقبض الملفے نصي أو ثنائي الي مسار ملف جدية فود 
إنشائه أو عوجود سابقا نود الكتابة فيه أو القرائة هذه لضن قبل حذلك يتوج علينا تحديد طريقة فح الملون 
او ڪیفے نريه أن يفت : 
- لففتج ملف للقراءة فقط نفستعمل الإجراء ا56٥۸‏ يجيج أن يكون الملف موجودا مسبقا و إلي سيفج 
خطا أثناء التنفيذ (أها هوخوح معالبة الإخطاة و تسييرها و الإتماد على قوجيمات المتر جو قبي 
درس في حد خذاقه) . 


procedure Reset ( var FileHandle : TextFile ) ; 
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لنفتج ملف للكتابة فقط فستعمل الإجراء )۷۲1ء۸ ل يمو شرط وجود الملفے لحن يجج أن يون 
السار صحيح أو نطقي فيي جميرع الحالات .. في حالة وجود الملا سيتو حنذفى محتواة و الكتابة عليه 
أا إنذا ڪان ير مو جود سیت إنشاء لے جديد . 


procedure ReWrite ( var FileHandle : TextFile ) ; 


- لكتابة قيمة نصية S1111‏ فنستعمل الإجراء ۷1٤٥‏ للكتابة في السطر الحالي 
أو Writ) e11‏ للكتابة فيي نفس السطر مع إرجاع المؤشر للسطر الموالي . 


1- procedure Write ( var FileHandle : TextFile; Expressionl, Expression2) ; 


2—- procedure Write ( var FileHandle : TextFile; var Value) ; 


لقرائة قيمة فصية 51۲11۶ فستعمل الإجراء ۸020 لقراءة المعلومة وق عوخع المؤشر في السطر 
الحالي او 2110ء8 لقراءة المعلومة الأولي فيي السطر مع إرجاع المؤشر للسطر الموالي . 


procedure Read ( var FileHandle : TextFile; var Value) ; 


لقحرير الملفے بعد إفشائه : 


procedure CloseFile ( var FileHandle : TextFile) ; 


Var F:TextFile; //TextFile gai ùم‎ رıغتم‎ 

Begin 

نرفق المتغير بالمسار الصحيح إفتراضيا //; AssignFile (F, 'C:\Test.txt')‏ 
نفتح الملف بجخاصية للکكتlابة‏ فãقط//; ReWrite (F)‏ 


Write (F, 'Samle Text ... ') ;//طıسwب نكتب نص‎ 
CloseFile (F) ;// نحرر الف‎ 
End; 


Var F:TextFile; 
Temp :String; 
Begin 
If Not FileExists ('C:\Test.txt') Then Exit;// فۉألkl|l نتحق أولا من وجود‎ 
AssignFile (F, 'C:\Test.txt'); 
ReSet (F);// طقãف‎ ةئlرقلل نعطي الملف في حالة وجوده الخاصية‎ 
While Not Eof (F) 50// نفتح حلقة تكرارية بشرط أن الملف غير منتهي‎ 
Begin 
Read (F, Temp) ;// Temp رغتkllاl نقراء المعلومة زف„‎ 
showMessage (emp); نعرض القيمة المقروئة في رسالة//‎ 
End; 
CloseFile (F); 
End; 


نهايãة‏ lاkllلdH Eof : End Of File‏ 
دالة للتحقق من شرط وجود ملف في المسار المدخل : sخ۴i11£xs‏ 
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2- الملفايه التقارجية : هنا فقا سنتعامل مع مجلا طايه حقول بدل الأسطر لذا منحتاج لوال و 
إجراءات بسيطة تسمل علينا القعامل مع هنذا النوح من الملةايت . 

- لفنشاً نعط جديد ذو حقول مختلفة لتعميء الټعاعل معا بطل ڊبداطة .Record/Packed‏ 
يكن أن فستعمل توجيهات المترجه هنا للققليل هن حجو النمط [-54)/+5۸]. 
- كما عرفنا عن قبل فإن الجداول الديناميكية خير مسموحة و عليه يجيج قحديدها . 
الإجراء )ء٥5‏ للإزاحة أو تموخع المؤشر في الملفے ما سنستعمJ‏ lلإجرl«ء TrunCate‏ 
ليتر أو مسح محتوي الملف إنطلاقا عن موخع المؤشر الحالي . 


الأن كيف نكتبج أو ففرا قيمة مستغلين بالك خصائص هذا النوح من الملفاي : 


* أمثلة بسيطة : 
--كيف نiشأÎً‏ سجJ Registration‏ کس ت کے ےک کے کے سے کی کے کے کے کے ےک کے ت م ی سے کے کے کے ہے س بات م بے 


{$A-} 
Type 
MyType = Record// Jgaڙãz‎ öةدعد نعرف سجل جديد ذو‎ 
Name:String [100]; //فرىحv حددنا طول السلسلة ب 100 م‎ 
Age: Byte;// هل عمر الإنسان فوق 256 le۾م ؟؟؟‎ 
Men: Boo1ean;// إذا كان خطاً يعني إنثى‎ 
End; 
FRec = File Of MyType; //Jgڙãح‎ öةدع هنا عرفنا ۳ على أنه ملف من نوع ٠عطرآMy الذي يملك‎ 


{Or // {$A-} = Packed Record .// SizeOf (MyType) قمنا بضغط حجم lاlنريكgورد جرب‎ 
Type 
MyType = Packed Record 
Name:String [100]; 
Age: Byte; 
Men : Boolean; 
End; 
FRec = File Of MyType; } 


--كية نكتد ف اللة | تتابعي ت ت ا ی کا ت ت کک کک کا 


Var Temp : MyType; 
F:FRec; 
Begin 
AssignFile(F, 'C :\Test.Rec');// فلklنا لا يهم إمتداد‎ 
If FileExists ('C:\Test. Rec') Then// ةبlتكکلل إذا كان الملف موجود يفتح للقراءة و العرعکس‎ 
ReSet (F) Else ReWrite (F);//ةڊlةۃكÛl لا يهم طريقة فتح الملف بخاصية القرائة أو‎ 
Temp .Name:=' 1F6M';// لJوقحلا نقوم بلا‎ 
Temp .Age:=20; 
Temp .Men :=True; 
Write (F, Temp) ;// Jجسلا نكتب السجل ط1۳ بعد أن ملائنا حقول‎ 
CloseFile (F) ; 
End; 
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Var Temp : MyType; 
F:FRec; 
Begin 
AssignFile (F, 'C:\Test.Rec'); 
If FileExists ('C:\Test . Rec' ) Then 
ReSet (F) Else ReWrite (F); 
While Not Eof (F) Do 
Begin 
Read (F, 1emp);// Jجسلا‎ Îأرقن‎ 
ShowMessage ('My Name: '+Temp.Name+#13+ 
'My Age: '+IntToStr (Tempص.Age));//‎ ةطيسuب نعرض النتيجة في رسالة‎ 
If Temp.Men Then 
ShowMessage ('I am Men')Else 
ShowMessage ('I am Women') ; 
End; 
CloseFile (F);// فلkا نحرر‎ 
End; 


--كيف نكتب في ملف تتابعي مع مسح المعلومات المكتوبة سابقا _- 


Var Temp : MyType; 
F:FRec; 
Begin 
AssignFile(F, 'C :\Test.Rec');// فلlklا لا يهم إمتداد‎ 
If FileExists ('C:\Test. Rec') Then// ةبlتكکلنل‎ سکعرژeلا إذا كان الملف موجود يفتح للقراءةö و‎ 
ReSet (F) Else ReWrite (F);//ةڊliكÛl لا يهم طريقة فتح الملف بخاصية القرائة أو‎ 
Seek (F,0) ;//0 نضع المؤشر في بداية الملف اوضع‎ 
TrunCate (F) ;//رشؤjۉؤll مسح جميع مدونات الملف إنطلاقا من موضع‎ 
Temp .Name:=' 1F6M';// لJوقحلا نقوم بلا‎ 
Temp .Age:=20; 
Temp .Men :=True; 
Write (F, Temp) ;// Jجسلا نكتب السجل ط1۳ بعد أن ملائنا حقول‎ 
CloseFile (F); 
End; 


3- الملفات الثنائية : و عي أهه انواع الملفات لأنعا تيح لذا الحرية الكاملة لكتابة أو قراءة جميع انوا 
مزاك من يفضل إستخداء 1م۸4 بدل الدوال المسجلة في الدلقي : 
CreateFile = AssignFile‏ 


ReSet/ReWrite = ReadFile/WriteFile 
Seek = SetFilePointer 


كما يمكن ان نستغل حالة )اوت ]0R‏ بواسطة تټوجيه المټرجم ! +51)/-51) 
بطل الدالة [E> 15S‏ لقجزی لظافة الوحصة 8١ 0111S‏ للققليل هن حجم البرناهج . 
Read/Write jl4a BlockWrite/BlockRead Jasim lia ®‏ . 


procedure BlockRead ( var FileHandle : File; var Buffer; RecordCount : Integer) ; 


procedure BlockWrite ( var FileHandle : File; var Buffer; RecordCount : Integer) ; 
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: الأن يف نغيج أو يقرا فيمة مستغلين بالك حسائس عا البوع عن الملهايه‎ 


* اة وسطة؛ 


KK KK KKK KK KK KK KK KK KK KK KK KK KK } 


//Open BinaryFile// 
{xxxkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkKKK KKK } 


Function OpenBFile (Var F:File;Path:String) :Boolean; 
Begin 

إبطال معالجة الأخطاء الألية//(-$1) 

AssignFile (F, Path) ; 

If FileExists (Path) Then ReSet (F,1) Else ReWrite (F,1); 
Result := (IoResult = 0); 

If Not Result Then Exit; 

Seek (F,0); 

إعادة تفعيل خاصية معالحة الاخطاء //(+1$1 

End; 

{Or 


Function OpenBFile (Var F:File Of Byte ;Path:String) :Boolean; 

Begin 

إبطال معالجة الأخطاء الألية//(-$1]) 

AssignFile (F, Path) ; 

If FileExists (Path) Then ReSet (F) Else ReWrite (F); 
Result := (IoResult = 0);// ءlطخÎ إذا كانت القيمة المرجعه 0 يعني لا يوجد‎ 
If Not Result Then Exit;// ءlرجأÎل|l في حالة وجود خطأً نخرج من‎ 

Seek (F, 0); 

إعادة تفعيل خاصية معالحة الاخطاء //(+$1) 

End; } 


{xxxkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk KKK KK } 


//Close BinaryFile// 
{xxxkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk KK KK } 


Function CloseBFile (Var F:File) :Boolean; 
Begin 

{$I-} 

CloseFile (F); 

Result := (IoResult = 0); 

If Not Result Then Exit; 

{$I+} 

End; 


{xxxkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk KK KK } 


//Write String Value// 
{xxxkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkKKK KK } 


Function WriteSBFile (BPath:String; LS:String) : Boolean; 
Var F:File; 
LongWs, NBwrite: Integer; 
Begin 
If Not OpenBFile (F, BPath) Then Exit; 
{$I-} 
TrunCate (F);// فألkا مسح‎ 
If IoResult <> 0 Then Exit;// ةlIدلÛا إذا كان هناك خطاأً نخرج من‎ 
LongWs :=Length (LS); // LongWs = LS طول السلسلة النصية التي نريد كتابتها‎ 
BlockWrite (F, LongWs, SizeOf (LongWs) , NBwrite);//ةlwلlwلlا‎ Jوaط أ ول شيء نكتبه هو‎ 
If (IoResult <> 0) Or (SizeOf (LongWs) <>NBwrite) Then Exit; 
BlockWrite (F,LS[1], LongWs, NBwrFite);// يqقةãlبلlاl يكفي كتابة المحرف الاول من السلسلة و‎ 
يسجل آليا‎ 
If (IoResult <> 0) Or (LongWs <> NBwrite) Then Exit;// ةnaقتll في حالة وجود خطÎ و‎ 
المكتوبة تختلف على الحجم الفعلي للسلسة نخرج من الدالة‎ 
{$I+} 
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Result :=CloseBFile (F) ; 
End; 


{xxtkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkKKK KK } 


//Write ShortString Value// 
{xxxkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkK KK KK } 


Function WriteCsBFile (BPath:String; CS: ShortString) :Boolean; 
Var F:File; 
NBwrite: Integer; 

Begin 

If Not OpenBFile (F, BPath) Then Exit; 

{$I-} 

TrunCate (F) ; 

If IoResult <> 0 Then Exit; 

BlockWrite (F,CS[0], Byte (CS[0]) +1, NBwrite) ; 

If (IoResult <> 0) Or (Byte (CS[0])+1 <> NBwrite) Then Exit; 

{$I+} 

Result :=CloseBFile (F) ; 

End; 

هنا لا نحتاج تسجيل طول السلسلة لأنها محصورة بين 0 و 256 محرف // 
يكفي قرائة ال ٤8S]0[‏ التي تحتوي على طول السلسلة// 

كما نضيف ٠٤و8٥‏ ليسجل فيه طول السلسلة المقروء// 


{xxxkxkkkkkkkkkkkkkkkkkkkkKKKKKKKKK KKK KKK } 


/ /Read String Value// 
{xxxkxkkkkkkkkkkKKKKKKKKKKKKKK KKK KK KK KK KK } 


Function ReadSBFile (BPath:String; LS:String) : Boolean; 
Var F:File; 
LongRs, NBwrite :Integer; 
Begin 
If Not OpenBFile (F, BPath) Then Exit; 
{$I-} 
If IoResult <> 0 Then Exit; 
BlockRead (F, LongRs, 4,NBwrite);// 4 = SizeOf (String); 
If (IoResult <> 0) Or (4 <> NBwrite) Then Exit; 
SetLength (Ls, LOnGgRs) ; 
BlockRead(F, Ls[1], LongRs, NBwrite) ; 
If (IoResult <> 0) Or (LongRs <> NBwrite) Then Exit; 
{$I+} 
Result :=CloseBFile (F) ; 
End; 


{xxxxxkkkkkkkkkkkKkkKkkKKKKKKKKKK KKK KK KK } 


/ /Read ShortString Value// 
{xxxkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk KKK KK } 


Function ReadCsBFile (BPath: String; CS: ShortString) : Boolean; 
Var F:File; 
LongRc : Byte; 
NBwrite: Integer; 
Begin 
If Not OpenBFile (F, BPath) Then Exit; 
{$I-} 
If IoResult <> 0 Then Exit; 
BlockRead (F, LongRc,1,NBwrite);// 1 = SizeOf (ShortString) ; 
If (IoResult <> 0) Or (1 <> NBwrite) Then Exit; 
SetLength (CS, LonGgRe) ; 
BlockRead (F, CS[1], LongRc, NBwrite) ; 
If (IoResult <> 0) Or (LongRc <> NBwrite) Then Exit; 
{$I+} 
Result :=CloseBFile (F) ; 
End; 
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شرم إجراء الكقابة : 


BlockWrite ( var FileHandle : File; var Buffer; RecordCount : Integer {; var RecordsRead 
Integer} ) ; 


ملف بدونj‏ êۉط‏ // FileHandle‏ 
مساحة من الذاكرة غير محددة النمط يمكن أن نسجل بها أي قيمة لكتابته في الملف // Buffer‏ 
حجم المعلومة التي نريد ان نكiتlkı‏ // RecordCount‏ 


باراماتر إختياري يسجل الحجم الحقيقي المكتوب // RecordsWritten‏ 


شرج إجراء القراءة : 


BlockRead ( var FileHandle : File; var Buffer; RecordCount : Integer {; var RecordsRead 
Integer} ) ; 


ملف بدونùن‏ êۉط‏ // FileHandle‏ 
مساحة من الذاكرة غير محددة النمط تأخذ قيمة المعلومة المقرو:ڈ5// Buffer‏ 
حجم المعلومة التي نريد ان نقرlaÎ‏ // RecordCount‏ 


باراماتر إختياري يسجل الحجم الحقيقي lاقؤقرو«ء‏ // RecordsWritten‏ 


* کیفے ننشا ملف ټنائي فقط بدوال 1م ۸ اي بوحصة W110 WS. 2S‏ قط ؟؟؟ : 

طا حطة ټل الإستعاذة )الي ټقط لإختصا کے : http://www.arabteam2000-forum.com/lofiversion/index.php/t150145.html‏ 
ډشرم 3 ر 

او یفگذلہ هرا جعه المصدر الرسمي لھیکر و سو کیہ : http://msdn.microsoft.com/en-us/library/aa363858(VS.85).aspX‏ 


: Create File ãllsll -1 


Function CreateFile (lpFileName: PChar; dwDesiredAccess, dwShareMode: DWORD; 
1pSecurityAttributes: PSecurityAttributes; dwCreationDisposition, 
dwFlagsAndAttributes: DWORD; 
hTemplateFile: THandle) : THandle; stdcall; 


. اسم الملف أو المنفذ المراد فتحه او انشاؤه‎ : ا]م۴اe‎ Name 

: يحدد العملية المراد اجرانها على الملف‎ : dwDesired Access 

GEN ERIC_READ -1‏ : یتم فتح الملف أو المنفذ للقراءة منه فقط . 

ENERIC_WRITE -2‏ : يتم فتح الملف أو المنفذ للكتابة فيه (لإنشاء ملف جديد) . 

EN ER|C_A -3‏ : يتم فتح الملف أو المنفذ للكتابة و القراءة و للتنفيذ معا . 

EN ERIC_Execute -4‏ : يتم فتح الملف للتنفيذ فقط , 

: لتحديد العمليات القابلة للتنفيذ على الملف من قبل البرامج الأخرى‎ : dwكhareM‎ ode 

۴1E_SHARE_READ -1‏ : يتم قبول عمليات القراءة من الملف أو المنفذ من برامج اخرى. 


۴۱1E_SHARE_WRITE -2‏ : يتم قبول عمليات الكتابة الى الملف أو المنفذ من برامج اخرى. 
F1E_SHARE_DELETE -3‏ : يتم قبول عملية مسح الملف أو المنفذ من برامج اخرى. 
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. يتم قبول كل عمليات القراءة و الكتابة و الحذفمن برامج خارجة اخرى‎ : ۴۱1E_SHARE_ALL -4 
وهو بارامتر اختیاریادا کان‎ ECR ۲Y_A R۱80 ٤S من نوع‎ Structure مؤشر الى‎ : |p SecurityAttributes 
. يؤشر علی اام فان المقبض لن تتم وراتثه‎ ا|مSecurity‎ Attributes 
: لتحديد كيفية التعامل مع الملف عند وجوده او عدم وجوده‎ : dw reation Disposition 


CREAE_NEW -1‏ : لإنشاء ملف جديد , اذا كان الملف موجود بالفعل سابقا تفشل الدالة . 

CREAE_ALWAYS -2‏ : لإنشاء ملف جديد , اذا كان الملف موجود سابقا يتم مسحه والكتابة فوقه بخصائص الملف الجديد مع اعطاء 
صفة "أرشيف" للملف الجديد . 

OPEN_EXST|NG -3‏ : لفتح ملف موجود سابقا , اذا لم يكن الملف موجود تفشل الدالة . 

٥PEN_ALW A۲5 -4‏ : لفتح ملف موجود سابقا , اذا لم يكن الملف موجود يتم انشاءه من جديد . 

0PEN_EXISTING -5‏ : فتح ملف موجود سابقا إن لم يكن موجود تفشل الدالة . 

P۴ UNCA E_EXISTING -6‏ : لفتح ملف موجود سابقا مع مسح جميع بياناته , لفعل ذلك يجب تحديد العلم E NER|C_NR |٣٤‏ مسبقا , 
تفشل الدالة اذا لم يكن الملف موجود مسبقا . 


: لتحدید صفات الملف‎ : dw ا۴‎ gsAndAttributes 

۴۱LE_ATTRIBUTE_ARCHIVE -1‏ : ملف أرشیف . 

۴|LE_ATTRIBUTE_HIDDEN -2‏ : ملف مخفي . 

F|LE_ATTRIBUTE_NORMAL -3‏ : ملف عادي . 

1E_ATTRIBUTE_READONLY -4‏ |۴ : ملف للقراءة فقط , 

۴LE_ATTRIBUTE_SYSTEM =5‏ : ملف نظام . 

. FILE_ATTRIBUTE_COMPRESSED - FILE_ATTRIBUTE_TEMPORARY - FILE_ATTRIBUTE_OFFLINE : lض¦يا‎ dik 

ateFileاhremp‏ : لتحدید قالب یتم اخذ خصائص الملف منه وهو بارامتر اختياري . 

القيمة المرجعة من الدالة ‏ اذا تم استدعاء الدالة بالشكل الصحيح ولم تفشل تكون القيمة المرجعة هي مقبض للملف يمكن استخدامه عن 


طريق دوال القراءة والکتابة ReadFile-WriteFile-CreateFile Mapping Jia‏ . 


Function SetFilePointer (hFile: THandle; 1DistanceToMove: Longint; 
1pDistanceToMoveHigh: Pointer; dwMoveMethod: DWORD) : DWORD; stdcall; 


٥ا۴‏ : مقبض الملف أو المنفذ المفتوح بالدالة ما۴ م†re2)‏ . 

. عنوان نقل مؤشر القراءة أو الكتابة في الملف‎ : Distance r0 ove 

cero oveHigh‏ Distanم|ا‏ : يستخدم كزيادة على البارامتر السابق اذا كان الملف كبير جدا (اكبر من ©0۸0۸ ) وهو بارامتر اختياري 
یمکن جعله 1| . 

: يحدد هذا البرامتر كيفية ازاحة المؤشر ويمكن ان يكون كالتالي‎ : dwMoveMethod 

F|LE_BEGIN -1‏ : يتم نقل المؤشر مقدار 0۷e‏ ۲0M٥"2اء0i|‏ من اول الملف =0 . 


FLE_CURRENT -2‏ : يتم نقل المؤشر مقدار ۸۲0٥۷00‏ هtء0İ|‏ من عنوان المؤشر الحالي = 1 . 
FLE_END -3‏ : يتم نقل المؤشر مقدار "٥۵۲0۷00‏ t8ء۵İ|‏ من اخر الملف = 2 . 
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: ReadFile/Write File ãllmll -3 


Function ReadFile (hFile: THandle; var Buffer; nNumberOfBytesToRead: DWORD; 
var lpNumberOfBytesRead: DWORD; 1lpOverlapped: POverlapped) : BOOL; stdcall; 


٥ا۴‏ : مقبض الملف الذي تم فتحه سابقا عن طريق الدالة ٥ماآ۴‏ مهمع , للكتابة يجب ان يكون الملف تج GENERIC_WRITE pl‏ 
و للقراءة العلم N۸۱٣_R ٤۸0‏ ع ويمكن دمج العلمين معا لإتاحة القراءة والكتابة من نفس المقبض . 

fer‏ Bufم|‏ : عنوان المساحة (بفر) التي سيتم كتابة(قراءة) البيانات منها الى(من) الملف , يجب ان تكون اكبر من او تساوي عدد البايتات 
المراد كتابتها(قراءتها) . 

nN umber f Bytes To Write-nNum berOfBytesToRead‏ : عدد البایتات المراد کتابتھا(قراءتھا). 

PNumberOfBytesWritten-lkpNumberOfBytesRead‏ | : بفر (4 بایت) لإرجاء عدد البایتات التي تم کتابتھا(قراءتھا) 

بعد تنفيذ الدالة , يمكنك المقارنة بينها وبين عدد البايتات المراد كتابتها(قراءتها) للتأكد من كتابة(قراءة) كل البفر . 

FILE_FLAG_OVERLAPPED pذتعÛl‎ aرÛ¦b اذا تم فتح الملف عن‎ OVERLAPPED من نوع‎ structu r٥ مؤشر الى‎ : |p verlapped 


یمکن جعله |¡. 


i1 BELE EERIE 


* عفال بصيط قراعة البايه الال من عله فصي : 


Var CrFileResult :hwnd; 

Buf: Byte; 

BytesR: Dword; 
Begin 

CrFileResult := CreateFile('c:\1.txt', GENERIC READ, FILE SHARE READ, nil, 
OPEN EXISTING, 

FILE _ATTRIBUTE_NORMAL, 0); 

If CrFileResult <> INVALID _ HANDLE VALUE then 

Begin 

SetFilePointer (CrFileResult, 2, nil, FILE BEGIN ); 
ReadF' ile (CrFileResult, Buf, 1, BytesR, nil); 


MessageBox (0, PChar ('$' + IntToHex (Buf,2)), '', $40 + $2000 + $00); 
CloseHandle (CrFileResult) ; 

End; 
End; 


و أ خيرا فيي هذا الدرس اليد متواضع أريوا أن بفيدكه ويسسل عليكم فهم بحض الإشكاليا نه في ها بخص 
العا Ja‏ مع الطلذا ت والصلفبي فنخير الكام ها فل و حل ... las‏ كاي إلا يحض المعلوما رت و لك أن تبش و تزبد 
عن طلكه و نصحم هن أ خطائه .. و يالقوفيق للبميع و السلاء عليكه و رحمة اله و براق . 


